home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / Char.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  4.1 KB  |  125 lines
  1. pTempVar <- <primitive 110 26 >
  2. <primitive 112 pTempVar 1  " newline " \
  3.   #( #[ 16r20 16r30 16rB0 16rF3 16rF5] \
  4.     #( 10  )) >
  5.  
  6. <primitive 112 pTempVar 2  " new: " \
  7.   #( #[ 16r20 16r20 16rA0 16r51 16r21 16r83 16r00 16rF3 16rF5] \
  8.     #( #in:at:put:  )) >
  9.  
  10. <primitive 112 pTempVar 3  " print " \
  11.   #( #[ 16r20 16rFA 16r01 16r3A 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " printString " \
  15.   #( #[ 16r30 16r20 16rFA 16r01 16r3A 16r0B 16r12 16rF3 16rF5] \
  16.     #( '$'  )) >
  17.  
  18. <primitive 112 pTempVar 5  " isBlank " \
  19.   #( #[ 16r20 16r30 16rC9 16rFB 16r08 16r20 16r59 16rC9 16rFB 16r03 16r20 \
  20.         16r31 16rC9 16rF3 16rF5] \
  21.     #( 32 10  )) >
  22.  
  23. <primitive 112 pTempVar 6  " isVowel " \
  24.   #( #[ 16r20 16rFA 16r01 16r33 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 7  " isUppercase " \
  28.   #( #[ 16r20 16r30 16r31 16r82 16r02 16rF3 16rF5] \
  29.     #( $A $Z #between:and:  )) >
  30.  
  31. <primitive 112 pTempVar 8  " isSeparator " \
  32.   #( #[ 16r20 16rFA 16r01 16r37 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 9  " isLowercase " \
  36.   #( #[ 16r20 16r30 16r31 16r82 16r02 16rF3 16rF5] \
  37.     #( $a $z #between:and:  )) >
  38.  
  39. <primitive 112 pTempVar 10  " isAlphabetic " \
  40.   #( #[ 16r20 16r80 16r00 16rFB 16r03 16r20 16r80 16r01 16rF3 16rF5] \
  41.     #( #isLowercase #isUppercase  )) >
  42.  
  43. <primitive 112 pTempVar 11  " isLetter " \
  44.   #( #[ 16r20 16r80 16r00 16rFB 16r03 16r20 16r80 16r01 16rF3 16rF5] \
  45.     #( #isLowercase #isUppercase  )) >
  46.  
  47. <primitive 112 pTempVar 12  " isDigit " \
  48.   #( #[ 16r20 16r30 16r31 16r82 16r02 16rF3 16rF5] \
  49.     #( $0 $9 #between:and:  )) >
  50.  
  51. <primitive 112 pTempVar 13  " isAlphaNumeric " \
  52.   #( #[ 16r20 16rFA 16r01 16r38 16rF3 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 14  " digitValue " \
  56.   #( #[ 16r20 16rFA 16r01 16r32 16rF1 16r71 16rA1 16rF7 16r03 16r20 16r30 \
  57.         16rBD 16rF2 16r21 16rF3 16rF5] \
  58.     #( 'digitValue on nondigit char'  )) >
  59.  
  60. <primitive 112 pTempVar 15  " compareError " \
  61.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  62.     #( 'char cannot be compared to non char'  )) >
  63.  
  64. <primitive 112 pTempVar 16  " asString " \
  65.   #( #[ 16r20 16rFA 16r01 16r3A 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 17  " upperCase " \
  69.   #( #[ 16r20 16rFA 16r01 16r35 16rF7 16r06 16r20 16rFA 16r01 16r39 16rF8 \
  70.         16r02 16rF2 16r20 16rF3 16rF5] \
  71.     #(  )) >
  72.  
  73. <primitive 112 pTempVar 18  " lowerCase " \
  74.   #( #[ 16r20 16rFA 16r01 16r36 16rF7 16r06 16r20 16rFA 16r01 16r39 16rF8 \
  75.         16r02 16rF2 16r20 16rF3 16rF5] \
  76.     #(  )) >
  77.  
  78. <primitive 112 pTempVar 19  " asUppercase " \
  79.   #( #[ 16r20 16rFA 16r01 16r35 16rF7 16r06 16r20 16rFA 16r01 16r39 16rF8 \
  80.         16r02 16rF2 16r20 16rF3 16rF5] \
  81.     #(  )) >
  82.  
  83. <primitive 112 pTempVar 20  " asLowercase " \
  84.   #( #[ 16r20 16rFA 16r01 16r36 16rF7 16r06 16r20 16rFA 16r01 16r39 16rF8 \
  85.         16r02 16rF2 16r20 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 21  " value " \
  89.   #( #[ 16r20 16rFA 16r01 16r3B 16rF3 16rF5] \
  90.     #(  )) >
  91.  
  92. <primitive 112 pTempVar 22  " asciiValue " \
  93.   #( #[ 16r20 16rFA 16r01 16r3B 16rF3 16rF5] \
  94.     #(  )) >
  95.  
  96. <primitive 112 pTempVar 23  " > " \
  97.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  98.         16r2B 16rF8 16r04 16rF2 16r20 16r0A 16r14 16rF3 16rF5] \
  99.     #(  )) >
  100.  
  101. <primitive 112 pTempVar 24  " = " \
  102.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  103.         16r2E 16rF8 16r04 16rF2 16r20 16r0A 16r14 16rF3 16rF5] \
  104.     #(  )) >
  105.  
  106. <primitive 112 pTempVar 25  " < " \
  107.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  108.         16r2A 16rF8 16r04 16rF2 16r20 16r0A 16r14 16rF3 16rF5] \
  109.     #(  )) >
  110.  
  111. <primitive 112 pTempVar 26  " == " \
  112.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  113.         16r2E 16rF8 16r02 16rF2 16r5C 16rF3 16rF5] \
  114.     #(  )) >
  115.  
  116. <primitive 98 #Char \
  117.   <primitive 97 #Char #Magnitude #AmigaTalk:General/Char.st \
  118.    #(  ) \
  119.    #( #newline #new: #print #printString #isBlank #isVowel #isUppercase  \
  120.        #isSeparator #isLowercase #isAlphabetic #isLetter #isDigit #isAlphaNumeric  \
  121.        #digitValue #compareError #asString #upperCase #lowerCase #asUppercase  \
  122.        #asLowercase #value #asciiValue #> #= #< #==  ) \
  123.   pTempVar 2 5 >>
  124.  
  125.